object EditRuleForm: TEditRuleForm Left = 313 Top = 265 BorderStyle = bsDialog BorderWidth = 5 Caption = 'EditRuleForm' ClientHeight = 383 ClientWidth = 352 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg' Font.Style = [] OldCreateOrder = False Position = poOwnerFormCenter OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Pages: TPageControl Left = 0 Top = 0 Width = 352 Height = 344 ActivePage = tsGeneral Align = alTop TabOrder = 0 object tsGeneral: TTabSheet Caption = 'General' object ImageGenIcon: TImage Left = 13 Top = 18 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object leRuleName: TLabeledEdit Left = 59 Top = 30 Width = 272 Height = 21 EditLabel.Width = 53 EditLabel.Height = 13 EditLabel.Caption = 'Rule Name' TabOrder = 0 end object rgFilterDirection: TRadioGroup Left = 8 Top = 59 Width = 325 Height = 48 Caption = 'Direction' Columns = 3 ItemIndex = 2 Items.Strings = ( 'Incoming' 'Outgoing' 'Either') TabOrder = 1 end object gbInterface: TGroupBox Left = 8 Top = 251 Width = 326 Height = 57 Caption = 'Apply Rule on Interface' TabOrder = 3 object cmbApplyOn: TComboBox Left = 16 Top = 24 Width = 293 Height = 22 Style = csOwnerDrawFixed ItemHeight = 16 ItemIndex = 0 TabOrder = 0 Text = 'Any' OnDrawItem = cmbApplyOnDrawItem Items.Strings = ( 'Any') end end object gbProtocol: TGroupBox Left = 8 Top = 192 Width = 325 Height = 54 Caption = 'Protocol' TabOrder = 2 object cmbProtocols: TComboBox Left = 16 Top = 20 Width = 293 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 0 OnChange = cmbProtocolsChange Items.Strings = ( 'Any protocol' 'TCP' 'UDP' 'TCP or UDP') end end object rgTransferRate: TGroupBox Left = 8 Top = 113 Width = 325 Height = 75 Caption = 'Transfer Rate Limit' TabOrder = 4 object cmbRate: TComboBox Left = 16 Top = 44 Width = 293 Height = 21 DropDownCount = 12 ItemHeight = 13 TabOrder = 0 end object rbBytes: TRadioButton Left = 105 Top = 18 Width = 66 Height = 17 Caption = 'Bytes/sec' Checked = True TabOrder = 1 TabStop = True OnClick = rbBytesClick end object rbBits: TRadioButton Left = 187 Top = 18 Width = 57 Height = 17 Caption = 'Bit/sec' TabOrder = 2 OnClick = rbBitsClick end object rbQuota: TRadioButton Left = 251 Top = 18 Width = 57 Height = 17 Caption = 'Quota' TabOrder = 3 OnClick = rbQuotaClick end end end object tsSource: TTabSheet Caption = 'Source' ImageIndex = 1 object gbSourceIpAddr: TGroupBox Left = 8 Top = 16 Width = 329 Height = 153 Caption = 'Source Address' TabOrder = 0 object rbSrcMyComputer: TRadioButton Left = 11 Top = 24 Width = 113 Height = 17 Caption = 'Local host' Checked = True TabOrder = 0 TabStop = True OnClick = SourceIpChanged end object rbSrcMacAddress: TRadioButton Left = 11 Top = 48 Width = 113 Height = 17 Caption = 'MAC Address' TabOrder = 1 OnClick = SourceIpChanged end object rbSrcIpAddr: TRadioButton Left = 11 Top = 72 Width = 113 Height = 17 Caption = 'Single IP Address' TabOrder = 2 OnClick = SourceIpChanged end object rbSrcIpRange: TRadioButton Left = 11 Top = 96 Width = 113 Height = 17 Caption = 'Whole IP Range' TabOrder = 3 OnClick = SourceIpChanged end object rbSrcIpAny: TRadioButton Left = 11 Top = 120 Width = 113 Height = 17 Caption = 'Any IP Address' TabOrder = 4 OnClick = SourceIpChanged end end object gbSourceIpPort: TGroupBox Left = 8 Top = 176 Width = 329 Height = 129 Caption = 'Source Port' TabOrder = 1 object rbSrcPortAny: TRadioButton Left = 11 Top = 25 Width = 49 Height = 17 Caption = 'Any' Checked = True TabOrder = 0 TabStop = True OnClick = SourcePortChanged end object rbSrcPortSinglePort: TRadioButton Left = 11 Top = 50 Width = 73 Height = 17 Caption = 'Single port' TabOrder = 1 OnClick = SourcePortChanged end object rbSrcPortRange: TRadioButton Left = 11 Top = 75 Width = 73 Height = 17 Caption = 'Port Range' TabOrder = 2 OnClick = SourcePortChanged end object rbSrcPortList: TRadioButton Left = 11 Top = 100 Width = 73 Height = 17 Caption = 'Port List' TabOrder = 3 OnClick = SourcePortChanged end object SrcIpPortNotebook: TNotebook Left = 185 Top = 19 Width = 129 Height = 99 PageIndex = 3 TabOrder = 4 object TPage Left = 0 Top = 0 Caption = 'SINGLE' object edSrcIpSinglePort: TEdit Left = 4 Top = 29 Width = 43 Height = 21 TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'RANGE' object leSrcPortFrom: TLabeledEdit Left = 6 Top = 54 Width = 43 Height = 21 EditLabel.Width = 23 EditLabel.Height = 13 EditLabel.Caption = 'From' TabOrder = 0 end object leSrcPortTo: TLabeledEdit Left = 61 Top = 54 Width = 44 Height = 21 EditLabel.Width = 13 EditLabel.Height = 13 EditLabel.Caption = 'To' TabOrder = 1 end end object TPage Left = 0 Top = 0 Caption = 'LIST' object lbSrcPortList: TListBox Left = 2 Top = 1 Width = 123 Height = 67 ItemHeight = 13 MultiSelect = True TabOrder = 0 end object btnSrcIpAddPort: TButton Left = 4 Top = 73 Width = 54 Height = 23 Caption = 'Add' TabOrder = 1 OnClick = btnSrcIpAddPortClick end object btnSrcIpDelPort: TButton Left = 67 Top = 73 Width = 56 Height = 23 Caption = 'Remove' TabOrder = 2 OnClick = btnSrcIpDelPortClick end end object TPage Left = 0 Top = 0 Caption = 'EMPTY' end end end end object tsDestination: TTabSheet Caption = 'Destination' ImageIndex = 2 object gbDestinationIpAddr: TGroupBox Left = 8 Top = 16 Width = 329 Height = 153 Caption = 'Destination Address' TabOrder = 0 object rbDstMyComputer: TRadioButton Left = 11 Top = 24 Width = 113 Height = 17 Caption = 'Local host' Checked = True TabOrder = 0 TabStop = True OnClick = DestinationIpChanged end object rbDstMacAddress: TRadioButton Left = 11 Top = 48 Width = 113 Height = 17 Caption = 'MAC Address' TabOrder = 1 OnClick = DestinationIpChanged end object rbDstIpAddr: TRadioButton Left = 11 Top = 72 Width = 113 Height = 17 Caption = 'Single IP Address' TabOrder = 2 OnClick = DestinationIpChanged end object rbDstIpRange: TRadioButton Left = 11 Top = 96 Width = 113 Height = 17 Caption = 'Whole IP Range' TabOrder = 3 OnClick = DestinationIpChanged end object rbDstIpAny: TRadioButton Left = 11 Top = 120 Width = 113 Height = 17 Caption = 'Any IP Address' TabOrder = 4 OnClick = DestinationIpChanged end end object gbDestinationIpPort: TGroupBox Left = 8 Top = 176 Width = 329 Height = 129 Caption = 'Destination Port' TabOrder = 1 object rbDstPortAny: TRadioButton Left = 11 Top = 25 Width = 49 Height = 17 Caption = 'Any' Checked = True TabOrder = 0 TabStop = True OnClick = DestinationPortChanged end object rbDstPortSinglePort: TRadioButton Left = 11 Top = 50 Width = 73 Height = 17 Caption = 'Single port' TabOrder = 1 OnClick = DestinationPortChanged end object rbDstPortRange: TRadioButton Left = 11 Top = 75 Width = 73 Height = 17 Caption = 'Port Range' TabOrder = 2 OnClick = DestinationPortChanged end object rbDstPortList: TRadioButton Left = 11 Top = 100 Width = 73 Height = 17 Caption = 'Port List' TabOrder = 3 OnClick = DestinationPortChanged end object DstIpPortNotebook: TNotebook Left = 185 Top = 19 Width = 129 Height = 99 PageIndex = 3 TabOrder = 4 object TPage Left = 0 Top = 0 Caption = 'SINGLE' object edDstIpSinglePort: TEdit Left = 4 Top = 29 Width = 43 Height = 21 TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'RANGE' object leDstPortFrom: TLabeledEdit Left = 6 Top = 54 Width = 43 Height = 21 EditLabel.Width = 23 EditLabel.Height = 13 EditLabel.Caption = 'From' TabOrder = 0 end object leDstPortTo: TLabeledEdit Left = 61 Top = 54 Width = 44 Height = 21 EditLabel.Width = 13 EditLabel.Height = 13 EditLabel.Caption = 'To' TabOrder = 1 end end object TPage Left = 0 Top = 0 Caption = 'LIST' object lbDstPortList: TListBox Left = 2 Top = 1 Width = 123 Height = 67 ItemHeight = 13 MultiSelect = True TabOrder = 2 end object btnDstIpAddPort: TButton Left = 4 Top = 73 Width = 54 Height = 23 Caption = 'Add' TabOrder = 0 OnClick = btnDstIpAddPortClick end object btnDstIpDelPort: TButton Left = 67 Top = 73 Width = 56 Height = 23 Caption = 'Remove' TabOrder = 1 OnClick = btnDstIpDelPortClick end end object TPage Left = 0 Top = 0 Caption = 'EMPTY' end end end end object tsAdvanced: TTabSheet Caption = 'Advanced' ImageIndex = 3 object gbTimeTable: TGroupBox Left = 8 Top = 13 Width = 325 Height = 89 Caption = 'Timetable' TabOrder = 0 object cbUseTimeTable: TCheckBox Left = 18 Top = 24 Width = 209 Height = 17 Caption = 'Use the following schedule' TabOrder = 0 end object cmbTimeTables: TComboBox Left = 16 Top = 53 Width = 293 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 1 end end end end object btnOk: TButton Left = 178 Top = 355 Width = 75 Height = 25 Caption = '&OK' ModalResult = 1 TabOrder = 1 OnClick = btnOkClick end object btnCancel: TButton Left = 264 Top = 355 Width = 75 Height = 25 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 2 end object cbRuleActive: TCheckBox Left = 17 Top = 356 Width = 83 Height = 17 Caption = 'Rule Active' TabOrder = 3 end end